#!/usr/bin/perl
#! file: eof.pl

undef $!;
# while(defined(my $line = <>)){
#     print $line;
# }
while(<>){
    print $_;
}
die "abnomal read error: $!" if defined($!);